From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 22 Jan 2022 11:36:29 +0000 (+0100)
Subject: Fix the prompt in hi-lock-read-face-name
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3305
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bf3db92bd69de418ff58cef9f2b5c6e263d9d061;p=emacs.git

Fix the prompt in hi-lock-read-face-name

* lisp/hi-lock.el (hi-lock-read-face-name): Fix the prompt after
recent changes (bug#53255).
---

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 53e6f779b31..0a01d90cbba 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -729,10 +729,7 @@ with completion and history."
 	 face)
     (if (and hi-lock-auto-select-face (not current-prefix-arg))
 	(setq face (or (pop hi-lock--unused-faces) (car defaults)))
-      (setq face (symbol-name
-                  (read-face-name
-                   (format-prompt "Highlight using face" (car defaults))
-                   defaults)))
+      (setq face (symbol-name (read-face-name "Highlight using face" defaults)))
       ;; Update list of un-used faces.
       (setq hi-lock--unused-faces (remove face hi-lock--unused-faces))
       ;; Grow the list of defaults.